home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / F-French / (c)f1.d64 / mon cher alain (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  3KB  |  87 lines
  1. 5 REM   ******************************
  2. 10 REM  ** INSPIRE D'UN ARTICLE DE  **
  3. 15 REM  ** JIM BUTTERFIELD DANS     **
  4. 20 REM  ** 'COMPUTE!', OCTOBRE '84. **
  5. 25 REM  **                          **
  6. 30 REM  ** PAROLES:                 **
  7. 35 REM  **   GILLES VIGNEAULT       **
  8. 40 REM  ** MUSIQUE:                 **
  9. 45 REM  **   GILLES VIGNEAULT ET    **
  10. 50 REM  **   GASTON ROCHON          **
  11. 55 REM  ** ARRANGEMENT:             **
  12. 60 REM  **   ROBERT GUYOT           **
  13. 65 REM  ******************************
  14. 90 POKE53280,12:POKE53281,0
  15. 100 PRINTCHR$(147);CHR$(154)
  16. 101 READS:IFS=0GOTO109
  17. 102 READS$:GOSUB1000
  18. 103 READX1,Y1,X2,Y2,X3,Y3
  19. 104 GOTO101
  20. 109 RESTORE:PRINTCHR$(19);CHR$(5)
  21. 110 L1=54272:L2=54279:L3=54286
  22. 120 H1=L1+1:H2=L2+1:H3=L3+1
  23. 130 V1=L1+4:V2=L2+4:V3=L3+4
  24. 140 POKE54296,15
  25. 150 POKEV1+1,9:POKEV1+2,0
  26. 160 POKEV2+1,36:POKEV2+2,36
  27. 170 POKEV3+1,18:POKEV3+2,170
  28. 180 T=TI
  29. 200 POKEV1,16:POKEV2,32:POKEV3,16
  30. 210 READS:IFS=0GOTO285
  31. 212 READS$:GOSUB1000
  32. 220 READX1,Y1,X2,Y2,X3,Y3
  33. 230 IFX1THENPOKEH1,X1:POKEL1,Y1:POKEV1,17
  34. 240 IFX2THENPOKEH2,X2:POKEL2,Y2:POKEV2,33
  35. 250 IFX3THENPOKEH3,X3:POKEL3,Y3:POKEV3,17
  36. 260 T=T+S-10
  37. 270 IFT>TIGOTO270
  38. 280 GOTO200
  39. 285 PRINT"  BON ANNIVERSAIRE, DE LA PART DE..."
  40. 286 FORT=1TO800:NEXT
  41. 288 PRINT"  [211]  [211]  [211]  PAPA !"
  42. 290 FORJ=L1TO54296:POKEJ,0:NEXTJ
  43. 295 PRINT"[154]";:END
  44. 300 DATA 30,"  MON",32,94,32,94,0,0
  45. 310 DATA 30," CHER",28,214,34,75,0,0
  46. 320 DATA 30," A",25,177,38,126,0,0
  47. 330 DATA 60,"LAIN,",38,126,25,177,12,216
  48. 340 DATA 15,"",0,0,0,0,0,0
  49. 350 DATA 30,"  C'EST",32,94,32,94,0,0
  50. 360 DATA 30," A",28,214,34,75,0,0
  51. 370 DATA 30," TON",25,177,38,126,0,0
  52. 380 DATA 60," TOUR",43,52,34,75,8,147
  53. 390 DATA 15,"",0,0,0,0,0,0
  54. 400 DATA 30,"  DE",28,214,34,75,0,0
  55. 410 DATA 30," TE",34,75,38,126,0,0
  56. 420 DATA 30," LAIS",43,52,43,52,0,0
  57. 430 DATA 45,"SER",38,126,38,126,7,53
  58. 440 DATA 15," P",0,0,0,0,0,0
  59. 450 DATA 30,"AR",38,126,28,214,0,0
  60. 460 DATA 45,"LER",38,126,32,94,9,159
  61. 470 DATA 15," D",0,0,0,0,0,0
  62. 480 DATA 30,"'A",38,126,34,75,0,0
  63. 490 DATA 75,"MOUR...",38,126,32,94,6,108
  64. 510 DATA 30,"  MON",32,94,32,94,0,0
  65. 520 DATA 30," CHER",28,214,34,75,0,0
  66. 530 DATA 30," A",25,177,38,126,0,0
  67. 540 DATA 60,"LAIN,",38,126,25,177,12,216
  68. 550 DATA 15,"",0,0,0,0,0,0
  69. 560 DATA 30,"  C'EST",32,94,32,94,0,0
  70. 570 DATA 30," A",28,214,34,75,0,0
  71. 580 DATA 30," TON",25,177,38,126,0,0
  72. 590 DATA 60," TOUR",43,52,34,75,8,147
  73. 600 DATA 15,"",0,0,0,0,0,0
  74. 610 DATA 30,"  DE",28,214,34,75,0,0
  75. 620 DATA 30," TE",34,75,38,126,0,0
  76. 630 DATA 30," LAIS",43,52,43,52,0,0
  77. 640 DATA 45,"SER",38,126,38,126,7,53
  78. 650 DATA 15," P",0,0,0,0,0,0
  79. 660 DATA 30,"AR",25,177,34,75,0,0
  80. 670 DATA 45,"LER",32,94,32,94,9,159
  81. 680 DATA 15," D",0,0,0,0,0,0
  82. 690 DATA 30,"'A",28,214,28,214,0,0
  83. 700 DATA 75,"MOUR.",25,177,25,177,6,108
  84. 710 DATA 0
  85. 1000 PRINTS$;:IF RIGHT$(S$,1)<"0"THENPRINT
  86. 1010 RETURN
  87.